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摘要 : 本 文 研究 生活 中 一 些 常 见 树 校 的 分 形 ， 鉴 于 分 形 图 形 由 生成 元 决定 ， 
因此 对 树 校 分 形 的 研究 归结 为 对 生成 元 的 研究 。 本 文 考虑 两 类 生成 元 ， 并 
且 根据 生成 元 的 节点 序列 是 否 递减 和 末端 是 否 细 分 把 每 一 类 生成 元 分 成 四 
种 。 借 助 于 计算 机 程序 ， 本 文 给 出 了 每 一 种 分 形 的 三 维 图 形 。 
关键 词 : 树枝 ， 分 形 ， 生 成 元 ， 线 段 序 列 ， 节 点 序列 。 


Abstract 


This paper mainly focuses on the fractal of branch which can be seen in the 
life. It is known that the fractal is completely determined by the genera- 
tor,thus the study of fractal comes down to the study of its generator. This 
paper considers two types of generators,and each type is divided into four 
kinds. With computer programs, this paper presents each kind of fractal 


graphics. 
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图 1: 迎春 花枝 条 的 分 形 


本 文 我 们 主要 研究 树 的 分 形 ， 它 开始 引起 我 们 的 注意 是 在 去 年 的 夏天 ， 
那 时 我 们 在 溪 边 的 树 下 乘凉 ， 旁 边 的 一 颗 不 知名 的 花 ( 后 来 才 知 道 那 就 是 
迎春 花 ) 的 枝条 长 得 是 那样 的 规则 ， 它 的 主干 在 每 个 节点 上 生出 两 个 枝条 ， 
这 两 个 枝条 关于 主干 对 称 ， 而 且 与 主干 在 一 个 平面 上 ， 这 样 在 每 个 节点 
上 都 确定 了 一 个 平面 ， 更 有 意思 的 是 在 交替 的 结 点 上 ， 所 确定 的 两 个 平面 
是 相互 垂直 的 ， 仔 细 观 察 主 枝 上 生长 出 的 小 枝条 时 ， 却 发 现 小 枝条 仍 按照 
主 枝条 的 生长 方式 伸 出 更 细小 的 枝条 ， 这 一 现象 使 我 们 惊奇 不 已 ， 后 来 我 
们 用 Meathemnatica 程 序 (程序 部 分 参考 了 < 数学 实验 六 [2]) 模 拟 了 它 的 图 
如 图 1。 

生活 中 会 发 现 许 多 类 似 的 例子 ， 一 条 云彩 的 每 一 个 小 的 部 分 与 整体 的 
形状 很 相似 ， 一 棵 树 长 出 的 树枝 与 树 的 主干 形状 大 致 相同 ， 你 也 许多 少 会 
注意 到 地 图 上 的 海岸 线 的 每 一 个 小 部 分 也 与 整体 相似 ， 其 实 这 些 源 自生 活 
! 的 例子 ， 在 数学 上 己 有 一 个 学 科 来 描述 它 ， 那 就 是 分 形 (fractal)。 

分 形 是 空间 上 一 些 点 的 集合 ， 并 且 基 本 具有 下 面 经 典 的 几何 性 质 : 
* 分 形 集 都 具有 任意 小 尺度 下 的 比例 细节 ， 即 具有 无 限 精细 结构 ; 
* 分 形 集 无 法 用 传统 几何 语言 来 描述 ， 它 不 是 某 些 简单 方程 的 解 集 ， 也 不 
是 满足 某 些 条 件 的 点 的 轨迹 ; 


SS 


形 集 具有 某 种 自 相 似 形式 ， 包 括 近 似 和 统计 上 的 自 相 似 ; 
形 集 一般 可 以 用 简单 的 方法 定义 和 产生 ， 如 迭代 ; 


* 按 某 种 维 数 定义 ， 分 形 集 的 分 形 维 数 大 于 相应 的 拓扑 维 数 。 
注 : 针对 不 同 图 形 ， 有 时 它 可 能 只 具有 上 面 大 部 分 性 质 ， 而 不 满足 某 个 性 


质 ， 但 我 们 一 般 仍 然 把 它 归 入 分 形 。 这 个 定义 引 上 自 潘 金 贵 的 和 分形 艺 术 程 


Fit» [1] 


后 来 我 们 还 发 现 许多 种 树 的 枝条 也 有 上 述 的 生长 ; 
多 用 树枝 的 分 形 来 描述 它们 。 
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有 了 上 面 的 定义 ， 我 们 可 以 发 现 前 面 所 述 的 迎春 花 校 条 的 形状 是 分 形 ， 
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分 形 的 基本 特征 完全 由 生成 元 决定 。 给 定 一 个 生成 元 ， 我 们 就 可 以 生成 
各 种 各 样 的 分 形 图 形 。 因 此 研究 树 的 分 形 归结 为 对 不 同 生成 元 的 研究 。 由 
于 篇 幅 有 限 ， 本 文 我 们 主要 研究 两 类 生成 元 ; 一 类 是 图 2 所 示 的 生成 元 (見 


2.1, 第 4 页 )， 另 一 类 是 图 11 所 示 的 生成 元 (見 2.2, 


2.1 第 一 类 生成 元 
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这 节 我 们 讨论 的 生成 元 满足 如 下 的 性 质 : 树 的 主干 被 分 成 均匀 的 n 段 ， 
这 样 会 相应 的 得 到 n 一 1 个 节点 ， 每 个 节点 生出 两 个 枝条 ， 这 两 个 枝条 关于 
主干 对 称 ， 且 与 主干 在 同一 平面 上 ， 伴 随 每 个 节点 都 有 一 个 平面 ， 并 且 在 


相 邻 的 节点 上 两 个 平面 垂直 (如 图 2)。 


图 2: 第 一 类 生成 元 
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由 于 主干 被 均匀 的 分 成 了 n 段 ， 可 按照 第 n 段 是 否 分 出 更 小 的 枝条 来 分 
类 ， 在 迭代 的 过 程 中 我 们 还 要 考虑 下 一 个 生成 元 的 节点 数 是 否 与 上 一 层 
生成 元 的 节点 数 相同 ， 我 们 观察 真实 的 树枝 时 ， 发 现 小 校 上 的 节点 数 通 
常 比 它 的 主 校 上 的 节点 数 要 少 ， 因 此 这 种 情况 我 们 应 该 考虑 在 内 。 若 假设 
第 次 达 代 的 生成 元 等 分 的 线段 数 为 Xk， 节 点 数 为 及 ， 则 有 Xk = Jr +1, 
而 且 按 照 刚 才 的 讨论 ， 节 点 序列 {及 } 可 为 两 类 : (a) Ji =. = J =... ; 
(lh, 

因此 ， 对 第 一 种 生成 元 ， 在 迭代 时 我 们 分 成 四 种 情况 加 以 讨论 : 
(1) 主 枝 的 最 后 一 段 细 分 且 节 点 序列 {内 } 为 情况 (a): 


图 3: 图 4: 


设 n = 3, 则 对 任意 的 &， 丸 =2, MF AIRE = = JR =... 
生成 元 如 图 3， 我 们 让 生成 元 进行 迭代 可 以 得 到 图 4。 
(2) 主 枝 的 最 后 一 段 细 分 且 节 点 序列 {. 了 及 } 为 情况 (0): 

我 们 讨论 节点 序列 {有 } 的 一 种 特殊 情况 ， 假 定 Xp41 = Xn 一 1， 由 
FXp At), My = JL, Gbale Ah 

设 n = 5， 生 成 元 如 图 5， 我 们 让 生成 元 进行 迭代 可 以 得 到 图 6。 
(3) 主 枝 的 最 后 一 段 不 细 分 且 节 点 序列 {用 } 为 情况 (a): 

设 n = 4, 我 们 让 生成 元 (如 图 7) 进行 迭代 可 以 得 到 图 8。 


图 5: Set 


K| 7: SEI 
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(4) 主 枝 的 最 后 一 段 不 细 分 且 节 点 序列 {有 } 为 情况 (0): 


9: 图 10: 


由 于 满足 Ji > … > Jk > 的 节点 序列 {7} 可 以 有 许多 种 情况 ， 这 


里 我 们 选取 比较 特殊 的 一 种 ， 即 假定 Xk+l = [Xn/2]〈 基 中 | | 表示 一 个 实 
数 的 最 大 整数 部 分 ， 简 称 为 对 一 个 实数 向 下 取 整 )。 由 于 和 = 大 十 1， 从 而 
À Jeya +1= | (Jk +1)/2), ZIHI ARE Ji >> JR >... 


设 n = 8, 我 们 让 生成 元 〈 如 图 9) 进行 迭 代 可 以 得 到 图 10。 


2.2 第 二 美 生成 元 


图 11: 第 二 类 生成 元 
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这 节 我 们 讨论 的 生成 元 满足 如 下 的 性 质 : 树 的 主干 被 分 成 均匀 的 mn 段 ， 
这 样 会 相应 的 得 到 n — 1 个 节点 ， 每 个 节点 生出 一 个 枝条 ， 生 成 元 上 相 邻 的 
两 个 枝条 投影 到 水 平面 上 相差 一 个 固定 的 角度 ， 这 里 假定 为 笠 《 如 图 11)。 

类 似 第 2.1 节 的 讨论 ， 这 里 第 三 种 生成 元 仍 按照 第 n 段 是 否 细 分 以 及 节 
点 是 否 递减 来 分 ， 共 四 种 。 

WEE ER E Jp EA ET — 1 

设 n = 6， 生 成 元 如 图 11， 生 成 元 迭代 后 得 到 图 12, 
(2) 第 nn 段 细 分 且 节 点 序列 {用} 是 递减 序列 

Zus Xk 一 1， 由 于 Xk = ti, Mm = J 一 1， 这 时 序 
IHJ HHE Ji >> Jp >o 

设 n = 6, 生 成 元 如 图 11， 生 成 元 迭代 后 得 到 图 13。 
(3) 第 n 段 不 细 分 且 节 点 .及 恒 为 常 值 n 一 1 

设 n = 6， 生 成 元 如 图 11， 生 成 元 迭代 后 得 到 图 14。 
(和 第 n 段 不 细 分 且 节 点 序列 {有} 是 递减 序列 

这 里 我 们 令 节 点 序列 {.} 与 (2) 中 的 相同 ， 即 41 AL, XF 
IHJ HHE カラ ーー ラテ > Jp >o 

设 n = 6, 生 成 元 如 图 11， 生 成 元 迭代 后 得 到 图 15。 
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3 MX 


我 们 用 Mathematica 程 序 来 实现 树枝 在 分 形状 态 下 的 图 形 ， 为 节省 篇 
幅 ， 仅 给 出 第 一 类 生成 元 中 的 第 二 种 Programi) 和 第 二 类 生成 元 中 的 第 
一 种 CProgram2) 程序 如 下 : 


Program : 

oy = {{0,0,0}, {0, 1,0}}: 

oz = {{0,0,0},{0,0,1}}: 

LineSet = {{{0,0,0},£{0,0,1}}}: 

LineCounting = {1}; 

n = 5; 

dividenumber = 3.5; 

0 = 7/3; 

To b-,n-] := Cos|n] * a + Sinn] * b; 

LineOnPlanela.,b_,n ]:= Block[{temp, vector, vector1, vector2}, 
vector1 = a[[2]] — allt: 
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vector2 = b[[2]] — b[[1]]; 
vector = Cross|vectorl, vector2]; 
vector2 = Crosslvector, vectorl|; 
vector2 = Normalizel[vector2|; 
temp = a[[1]] + f[vector1, vector2, al: 
{all1]], temp}; 
Line) ff Planela.,b_,n ] := Block[{temp, vectorl, vector2}, 
vectorl = a[[2]] — allt: 
vector2 = b[[2]] — b[[1]]; 
vector2 = Cross[vectorl,vector2|; 
vector2 = Normalizel[vector2]; 
temp = a[[1]] + f[vector1, vector2, al: 
ID, temp}; 
LineNormalizela-] := Block[{temp}, 
temp = a[[1]] + Normalizela[{[2]] — al[1]]]; 
{all1]], temp}; 
LineScaling[a.,t] := Block[{temp}, 
temp = a[[1]] + t* (al[2]] — al[1]]); 
{all1]], temp}; 
BranchGeneratela.,b._, number | := 
Block{{i, length, vector, temp, templ, temp2, tempa, tempb}, 
AppendT o[LineSet, {a[[1]]+(number—1)+(a[[2]}-a[{[1]])/number, a[[2]1}}; 
length = Normla|[2]] — gl 用 
Forli = 1,i < number, 
vector = i x (a[[2]] — a[[1]])/number: 
templ = {a{[[1]] + vector, al[2]] 
temp2 = {a{[[1]] + vector, a[[1]] + vector + HOI — b[[1]]}; 
templ = LineNormalizel[templ|; 
Tf[Modli, 2] == 1, 
temp = LineOf f Planeltempl, temp2, 6]; 
temp = LineNormalizel[temp|; 
AppendTo[LineSet, LineScalingltemp, length/dividenumber||; 
temp = LineOf f Planeltempl, temp2, —0)]; 


temp = LineNormalize[temp]; 
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AppendTo{LineSet, LineScalingltemp, length/dividenumber||, 
temp = LineOnPlaneltempl, temp2, 0]; 

temp = LineNormalizeltemp|; 

AppendTo[LineSet, LineScalingltemp, length/dividenumber||; 
temp = LineOnPlaneltempl,temp2, —0|; 

temp = LineNormalizeltemp|; 


AppendT o[LineSet, LineScalingltemp, length/dividenumber|] 


sumla.,t.| := Block[{temp = 0, i}, 
Forli = 1,i<=t,temp = temp + al[i]|; i + +]; 
temp]; 
BranchGenerateloz, oy, nl: 
AppendT o[LineCounting, Length|LineSet] 一 sum|LineCounting, 1 
pla] := Block[{templ, temp2}, 
If|a == 0,templ = 0, 
For|templ = 1; temp? = 1,temp2 <= a, 
templ = templ * (2(n 一 temp2) + 1); temp2 + +] 
}; 
templ]; 
Forlk= 1;i= 1,k < 4, 
For|r = 1;t = 0,t <= k — 1,r = r + p|t];t + +l; 
For|j =r +1,j <= r + p[k], 
BranchGenerate|LineSet||j]], LineSet[[j + 2(n — k)]], n — kl: 
For|l = j +1,1 <= j + 2(n — k), 
BranchGenerate|LineSet||l]], LineSet[{i]], n — k]; 
1 十 十 |; 
PET 
j=3j+2(n-Kk) +1]; 
k++]; 
ShowlTablel[ 
Graphics3D[Line[{LineSet[[i, 1]], LineSet{[i, 2]]}]], {i, 1, Length|LineSet] y}, 
AspectRatio— > Automatic, Bored— > False] 


3 附录 12 


Clearli, j, k,l, r,t]; 
Clear{oy, oz, Line Set, LineCounting, dividenumber, n, |: 
Clear|sum, f, p, LineOnPlane, LineO f f Plane, LineNormalize, 


LineScaling, BranchGenerate|; 


Program : 

oy = {{0, 0, 0}, {0, 1, 0}}; 

oz = {{0,0,0},{0,0,1}}: 
LineSet = {{{0,0,0},{0,0,1}}}: 
LineCounting = {1}; 


Qa = T3; 
0 = 27/3; 
n = 6; 


dividenumber = 3.3; 
LineScaling|a.,t.] := Block[{temp}, 
temp = al[1]] + t* (al[2]] - al[1]]); 
{all1]], temp}; 
Get Länela 0-, n-] := 
Block|[{temp, vector, vectora, vectorb, vectorc, length}, 
length = Normlall2]] — a[[1]]]; 
vectora = Normalize[a[[2]] — allt 
vectorb = b[[2]] — b[[1]]; 
vectorc = Normalize[Cross[vectora,vectorb||; 
vectorb = Cross[vectorc, vectora|; 
vector = Cos|a] x vectora + Sin[a] x Cos|n] x vectorb 
+Sin[a] x Sin[n] * vectorc: 
temp = all1]], a[[1]] + vector; 
temp = LineScalingltemp, length/dividenumber|: 
temp]: 
BranchGeneratela., b., number] := 
Block{{i, vector, temp, templ,temp2}, 
AppendT o[LineSet, a[[1]] + (number — 1) * (a[[2]] — a[[1]})/number, a[[2]||: 
Forli = 1,i < number, 


vector = i x (a[[2]] — a[[1]])/number; 
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templ = a[[1]] + vector, a[[2]] + vector; 
temp2 = {a{[[1]] + vector, a[[1]] + vector + b[[2]] — b[[1]]}: 
temp = GetLineltempl,temp2, (—i+ 1.5) * 0]; 
AppendTo|LineSet, temp]; 
i + +]; 0]; 
sumla.,t.| := Block|{temp = 0, i}, 
Forli = 1,i <= t, temp = temp + alļi]]; i + +]; 
temp]; 
BranchGenerateloz, oy, n]; 
AppendTolLineCounting, Length|LineSet] 一 sum|LineCounting, 1]|; 
total = 3; 
Forli = 1;k = 1,k <= total, k + +, 

r = (në —1)/(n— 1); 

Forlj=r+1,j<=r+ni,j=5j+n, 
BranchGenerate[LineSet[{5]], LineSet[[j +n — 11], n]; 
Forll =j +1,1 <j+n,l ++, 

BranchGenerate[LineSet{[]|, LineSet{[i]], n] 
上 
i++; 

]; 

Show[T able|[Graphics3D{Line[{ LineSetlli, 1]], LineSet[[i, 2]1}1]|, 

{i,1, Length|[LineSet|}|, AspectRatio— > Automatic, Bored— > False] 


Clear{oy, oz, &,0, LineSet, LineCounting, dividenumber!; 
Clearfn, i, j, k,l,p,q,r, total]; 


Clear[sum, LineNormalize, LineScaling, GetLine, BranchGenerate]; 
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